home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestVBAudioEditor2 / frmRAW.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-02  |  8.5 KB  |  240 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRAW 
  3.    Caption         =   "Set RAW Format"
  4.    ClientHeight    =   2670
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3705
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2670
  10.    ScaleWidth      =   3705
  11.    StartUpPosition =   1  'CenterOwner
  12.    Begin VB.Frame Frame1 
  13.       Caption         =   "Comperssion"
  14.       Height          =   1110
  15.       Left            =   2205
  16.       TabIndex        =   14
  17.       Top             =   990
  18.       Width           =   1440
  19.       Begin VB.OptionButton C3 
  20.          Caption         =   "8-bit mu-Law "
  21.          Height          =   285
  22.          Left            =   135
  23.          TabIndex        =   19
  24.          Top             =   765
  25.          Width           =   1230
  26.       End
  27.       Begin VB.OptionButton C2 
  28.          Caption         =   "8-bit A-Law "
  29.          Height          =   285
  30.          Left            =   135
  31.          TabIndex        =   16
  32.          Top             =   495
  33.          Width           =   1140
  34.       End
  35.       Begin VB.OptionButton C1 
  36.          Caption         =   "16-bit PCM"
  37.          Height          =   240
  38.          Left            =   135
  39.          TabIndex        =   15
  40.          Top             =   270
  41.          Value           =   -1  'True
  42.          Width           =   1140
  43.       End
  44.    End
  45.    Begin VB.CommandButton cmdCancel 
  46.       Caption         =   "Cancel"
  47.       Height          =   375
  48.       Left            =   2700
  49.       TabIndex        =   13
  50.       Top             =   2205
  51.       Width           =   960
  52.    End
  53.    Begin VB.CommandButton cmdOK 
  54.       Caption         =   "Ok"
  55.       Height          =   375
  56.       Left            =   1665
  57.       TabIndex        =   12
  58.       Top             =   2205
  59.       Width           =   960
  60.    End
  61.    Begin VB.Frame Frame5 
  62.       Caption         =   "nChannels"
  63.       Height          =   885
  64.       Left            =   2205
  65.       TabIndex        =   9
  66.       Top             =   90
  67.       Width           =   1440
  68.       Begin VB.OptionButton P2 
  69.          Caption         =   "Stereo"
  70.          Height          =   255
  71.          Left            =   225
  72.          TabIndex        =   11
  73.          Top             =   540
  74.          Value           =   -1  'True
  75.          Width           =   915
  76.       End
  77.       Begin VB.OptionButton P1 
  78.          Caption         =   "Mono"
  79.          Height          =   255
  80.          Left            =   225
  81.          TabIndex        =   10
  82.          Top             =   225
  83.          Width           =   915
  84.       End
  85.    End
  86.    Begin VB.Frame Frame2 
  87.       Caption         =   "Frequency (Hz)"
  88.       Height          =   2010
  89.       Left            =   90
  90.       TabIndex        =   0
  91.       Top             =   90
  92.       Width           =   2040
  93.       Begin VB.OptionButton F9 
  94.          Caption         =   "6000"
  95.          Height          =   255
  96.          Left            =   135
  97.          TabIndex        =   18
  98.          Top             =   270
  99.          Width           =   780
  100.       End
  101.       Begin VB.OptionButton F10 
  102.          Caption         =   "12000"
  103.          Height          =   255
  104.          Left            =   135
  105.          TabIndex        =   17
  106.          Top             =   1248
  107.          Width           =   780
  108.       End
  109.       Begin VB.OptionButton F6 
  110.          Caption         =   "22050"
  111.          Height          =   255
  112.          Left            =   1080
  113.          TabIndex        =   8
  114.          Top             =   270
  115.          Width           =   780
  116.       End
  117.       Begin VB.OptionButton F5 
  118.          Caption         =   "11025 "
  119.          Height          =   255
  120.          Left            =   135
  121.          TabIndex        =   7
  122.          Top             =   922
  123.          Width           =   780
  124.       End
  125.       Begin VB.OptionButton F1 
  126.          Caption         =   "8000"
  127.          Height          =   255
  128.          Left            =   135
  129.          TabIndex        =   6
  130.          Top             =   596
  131.          Width           =   780
  132.       End
  133.       Begin VB.OptionButton F8 
  134.          Caption         =   "48000"
  135.          Height          =   255
  136.          Left            =   1080
  137.          TabIndex        =   5
  138.          Top             =   1575
  139.          Width           =   780
  140.       End
  141.       Begin VB.OptionButton F4 
  142.          Caption         =   "32000"
  143.          Height          =   255
  144.          Left            =   1080
  145.          TabIndex        =   4
  146.          Top             =   922
  147.          Width           =   780
  148.       End
  149.       Begin VB.OptionButton F7 
  150.          Caption         =   "44100"
  151.          Height          =   255
  152.          Left            =   1080
  153.          TabIndex        =   3
  154.          Top             =   1248
  155.          Value           =   -1  'True
  156.          Width           =   780
  157.       End
  158.       Begin VB.OptionButton F3 
  159.          Caption         =   "24000"
  160.          Height          =   255
  161.          Left            =   1080
  162.          TabIndex        =   2
  163.          Top             =   596
  164.          Width           =   780
  165.       End
  166.       Begin VB.OptionButton F2 
  167.          Caption         =   "16000"
  168.          Height          =   255
  169.          Left            =   135
  170.          TabIndex        =   1
  171.          Top             =   1575
  172.          Width           =   780
  173.       End
  174.    End
  175. Attribute VB_Name = "frmRAW"
  176. Attribute VB_GlobalNameSpace = False
  177. Attribute VB_Creatable = False
  178. Attribute VB_PredeclaredId = True
  179. Attribute VB_Exposed = False
  180. Dim Freq As Long        'Declares the variable to store the Frequency value
  181. Dim Channel As Integer  'Declares the variable to store the number of channels value
  182. Dim Compr As Integer    'Declares the variable to store the compression type of RAW file
  183. Private Sub C1_Click()  'this sub starts on clicking the first button of the compreeeion frame
  184.     Compr = 1           'sets compression type to 1 (16 bit A-PCM-LAW)
  185. End Sub
  186. Private Sub C2_Click()  'this sub starts on clicking the second button of the compreeeion frame
  187.     Compr = 2           'sets compression type to 2 (8 bit A-Law)
  188. End Sub
  189. Private Sub C3_Click()  'this sub starts on clicking the third button of the compreeeion frame
  190.     Compr = 3           'sets compression type to 3 (8 bit mnu-LAW)
  191. End Sub
  192. Private Sub cmdCancel_Click()   'this sub starts on clicking the "Cancel" button and terminates running of the frame
  193.     Unload Me                   'unloads the frame
  194. End Sub
  195. Private Sub cmdOK_Click()       'this sub starts on clicking "OK" button
  196.     frmDialog.AudioEditor1.FileFormat.SetFormatRAW Compr, Freq, Channel, 16    'Changes RAW file's format
  197.     Unload Me                   'trminates running of the frame
  198. End Sub
  199. Private Sub F1_Click() 'this sub starts on clicking "8000" radio button
  200.     Freq = 8000        'sets frequency value to 8000 Hz
  201. End Sub
  202. Private Sub F10_Click() 'this sub starts on clicking "12000" radio button
  203.     Freq = 12000        'sets frequency value to 12000 Hz
  204. End Sub
  205. Private Sub F2_Click() 'this sub starts on clicking "16000" radio button
  206.     Freq = 16000        'sets frequency value to 16000 Hz
  207. End Sub
  208. Private Sub F3_Click() 'this sub starts on clicking "24000" radio button
  209.     Freq = 24000        'sets frequency value to 24000 Hz
  210. End Sub
  211. Private Sub F4_Click() 'this sub starts on clicking "32000" radio button
  212.     Freq = 32000        'sets frequency value to 32000 Hz
  213. End Sub
  214. Private Sub F5_Click() 'this sub starts on clicking "11025" radio button
  215.     Freq = 11025        'sets frequency value to 11025 Hz
  216. End Sub
  217. Private Sub F6_Click() 'this sub starts on clicking "22050" radio button
  218.     Freq = 22050        'sets frequency value to 22050 Hz
  219. End Sub
  220. Private Sub F7_Click() 'this sub starts on clicking "44100" radio button
  221.     Freq = 44100        'sets frequency value to 44100 Hz
  222. End Sub
  223. Private Sub F8_Click() 'this sub starts on clicking "48000" radio button
  224.     Freq = 48000        'sets frequency value to 48000 Hz
  225. End Sub
  226. Private Sub F9_Click() 'this sub starts on clicking "6000" radio button
  227.     Freq = 6000         'sets frequency value to 6000 Hz
  228. End Sub
  229. Private Sub Form_Load() 'this sub starts on loading the frmRAW frame
  230.     Freq = 44100        'Sets frequency to 44100 Hz
  231.     Channel = 2         'sets Stereo mode
  232.     Compr = 1           'set 16-PCM compression
  233. End Sub
  234. Private Sub P1_Click()  'this sub starts on clicking "Mono" radio button
  235.     Channel = 1         'Sets 1 Channel and "Mono" mode
  236. End Sub
  237. Private Sub P2_Click()  'this sub starts on clicking "Stereo" radio button
  238.     Channel = 2         'Sets 2 Channels and "Stereo" mode
  239. End Sub
  240.